| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何将项目代码转窗体？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146273) |
|
| -- 作者：lgz518 -- 发布时间：2020/2/20 16:13:00 -- 如何将项目代码转窗体？ If MainTable.Name = "商品表" Then DataTables("商品表").DataRows.Clear() For Each nm As String In DataTables("商品明细").GetValues("产品名称") Dim dr As DataRow = DataTables("商品表").addnew( ) Dim dr2 As DataRow = DataTables("商品明细").find("产品名称=\'" & nm &"\'") dr("产品名称") = nm dr("产品编号") = dr2("产品编号") dr("规格型号") = dr2("规格型号") dr("单位") = dr2("单位") dr("商品_数量") = DataTables("商品明细").Compute("Sum(数量)","产品名称 = \'" & nm & "\'") dr("商品_金额") = DataTables("商品明细").Compute("Sum(金额)","产品名称 = \'" & nm & "\'") Next End If 老师，我是以窗体开发为主，所以上面代码，不想在项目写，我把上面代码窗体打开事件，没有反映，应如何解决？谢谢
|
|
| -- 作者：有点蓝 -- 发布时间：2020/2/20 16:17:00 -- 去掉第一句的判断
|