yuanweisen

摘要： 1 ItemDataBound事件 private void DG_DataRet_ItemDataBound(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e) { //初始绑定的时候，如果绑定的是表头,则加载AP多语言包 if (e.Item.ItemType==ListItemType.Hea... 阅读全文

摘要： select datepart(dw,'2009-1-7') select datename(dw,'2009-1-7') 阅读全文

摘要： 'BP Type为Dist时，Product/Metric列为下拉列表1、Shipped REV ($k), 2、Sell Thru Units, 3、WOS '否则还是普通的文本框 Private Sub Worksheet_SelectionChange(ByVal Target As Range) '首先判断被选择的是不是Product/Metric，并且判断BP Type的值是不是Dist... 阅读全文

摘要： '过滤特殊字符 Public Function XmlEncode(sStr) If Trim(sStr) = "" Or IsNull(sStr) Then XmlEncode = "" Exit Function End If sStr = Trim(sStr) Dim i i = 0 Dim sRet ... 阅读全文

摘要： 'Excel数据转成Xml文件流 Function getSheetXml() Dim sXml Dim i Dim sXmlRow Dim ProductGroup '头文件流 sXml = "" & ReportName & "" '遍历Excel每个数据，转为Xml文件流 For i = MinRow To RetMaxRow - 1... 阅读全文

摘要： 1 写VBA函数的时候，如果函数有返回值，则写成如下形式 '获取真实数据的实际行数 Public Function GetMaxRow() as integer For i = MinRow To MaxRow '循环最小行到最大行 For j = MinCol To MaxCol '循环最小列到最大列 If Trim(Cells(i, j).Value) ... 阅读全文

摘要： '保存数据按钮事件 Private Sub SaveData_Click() Dim fso, oFile, sXml, fname, objStream Dim i '定义导出的文件名 fname = "Rebate_Report1_" & Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " "... 阅读全文

摘要： '检测数据按钮方法,如果检测通过，则保存按钮可用 Private Sub CheckData_Click() GetMaxRow '首先得到实际数据的最大有效行数 If RetMaxRow = MinRow Then MsgBox "没有任何有效数据" Exit Sub End If For i = MinRow To RetMaxRow - 1 '循环每一行 ... 阅读全文

摘要： declare @Table table (Region varchar(20),Ctry varchar(20),[BP Code] varchar(20),[BP Name] varchar(20),[Product Group] varchar(20), [Order Load] varchar(20),[Sell In] varchar(20),[BackLog] varchar(20),... 阅读全文

摘要： update @Table set [Order Load]=CONVERT(INT,[Sell In])+CONVERT(INT,[BackLog]),WOS=case when [ST Weekly Average]=0 then 0 else CONVERT(INT,[Close Inventory(Dec.12)])/CONVERT(INT,[ST Weekly Average]) end... 阅读全文