strValue = Replace(strValue.ToUpper, "$G_SITE", sysParams(0)) ‘公司 strValue = Replace(strValue.ToUpper, "$G_HS", sysParams(5)) ‘核算体系 strValue = Replace(strValue.ToUpper, "$G_USER_NAME", G_USER_NAME) ‘用户 strValue = Replace(strValue.ToUpper, "$G_USER", sysParams(1)) ‘用户 strValue = Replace(strValue.ToUpper, "$G_YEAR", Microsoft.VisualBasic.Format(CDate(G_Main.BasicDataDS.Tables("ServerDate").Rows(0).Item(0).ToString), "yyyy")) strValue = Replace(strValue.ToUpper, "$G_MONTH", CInt(Microsoft.VisualBasic.Format(CDate(G_Main.BasicDataDS.Tables("ServerDate").Rows(0).Item(0).ToString), "dd"))) strValue = Replace(strValue.ToUpper, "$G_BILL_ID", BillID) ‘单据ID strValue = Replace(strValue.ToUpper, "$G_DEL_VALUE", DelValue) ‘删除值
原文:http://iderun.blog.51cto.com/6445088/1360749