Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
![]() |
Select Case e.DataCol.Name Case "型号" , "规格" Dim dr As DataRow dr = DataTables("产品库").Find("型号='" & e.NewValue & "'") If dr IsNot Nothing Then e.DataRow("单价") = dr(e.DataRow("规格")) End If End Select |