以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 代码借误码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160667)
--  作者：sanny
--  发布时间：2021/2/11 19:48:00
--  [求助] 代码借误码
老师，

以下黄色的请帮忙指正，谢谢。


If e.DataCol.Name = "WKNumber" Then
    Dim cmd As new SQLCommand
    Dim dt As DataTable
     cmd.CommandText = "Se lect * From {ICMO} Where FBillNo = \'" & e.DataRow ("生产任务单号") & "\'"
     cmd.C
     dt = cmd.ExecuteReader(True)
 
     Dim fdr As DataRow In dt.DateRows
            fdr("FHeadSelfJ0195") = e.DataRow("WKNumber") 
      
            dt.Save()
End If
--  作者：有点蓝
--  发布时间：2021/2/16 11:27:00
--  
http://www.foxtable.com/webhelp/topics/0226.htm

For Each fdr As DataRow In dt.DateRows
fdr("FHeadSelfJ0195") = e.DataRow("WKNumber") 
next