主题：代码

 回复楼主，你这段代码写得......前后要对应

 

Select Case e.Row("付款单位")
    Case "高科开发建设","高科置业发展","贵州望城投资"
        If r.Isnull("子公司负责人") = False Then
            If R("SFFK") = True Then
                MessageBox.show("此单已付过款了,不要重复付款!")
            Else
                Dim nma() As String = { "SQDBH","JHBH","HTMC","XMBM","XMMC","KSBM","KSMC","JTCWB1","ZJLB","HTBH","JSGLDW","分项名称","标段" } 'A表数据来源列
                Dim nmb() As String = { "SQDBH","JHBH","HTMC","XMBM","XMMC","KSJM","SKDW","YFKJE","ZJLB","HTBH","FKDW","分项名称","标段" } 'B表数据接收列
                Dim dr As DataRow = DataTables("FKB").AddNew
                For i As Integer = 0 To nma.Length - 1
                    dr(nmb(i)) = r(nma(i))
                Next
            End If
        End If
    Case "高科控股集团"
        If r.Isnull("JTCWB3") = False Then
            If R("SFFK") = True Then
                MessageBox.show("此单已付过款了,不要重复付款!")
            Else
                Dim nma() As String = { "SQDBH","JHBH","HTMC","XMBM","XMMC","KSBM","KSMC","JTCWB1","ZJLB","HTBH","JSGLDW","分项名称","标段" } 'A表数据来源列
                Dim nmb() As String = { "SQDBH","JHBH","HTMC","XMBM","XMMC","KSJM","SKDW","YFKJE","ZJLB","HTBH","FKDW","分项名称","标段" } 'B表数据接收列
                Dim dr As DataRow = DataTables("FKB").AddNew
                For i As Integer = 0 To nma.Length - 1
                    dr(nmb(i)) = r(nma(i))
                Next
            End If
        End If
End Select

 

 

Select Case Tables("表A").Current("付款单位")

 

 这个意思？

 

 

Dim L As String = e.DataRow("付款单位")
Select Case e.DataRow("付款单位")

 多行生成一行？列数不确定？

 

 为什么要这样做？

 那就是父子表关系。父表统计子表的数量即可。

 你以后问问题，请上传简单的例子加以说明。

 表名。 数据源要指定一下

 

Dim cmd As New SQLCommand

cmd.ConnectionName = "数据源名"
cmd.CommandText = "Update {员工} Set 编辑者 = Null Where 编辑者 = '" & User.Name & "'"
cmd.ExecuteNonQuery

If r("HTLB") = "工程施工合同" Then

提示什么错？

 

If User.IsRole("录入人") Then
    For Each r As Row In Tables("htB").GetCheckedRows
        If r("HTLB") = "工程施工合同" Then
            Dim nma() As String = { "XMLB","XMBM","XMMC","XMGS","HTBH","HTMC","KSJM","KSMC","HTFYLB","HTJE","LJZFGCK","分项名称","分项概算","标段" } 'A表数据来源列
            Dim nmb() As String = { "XMLB","XMBM","XMMC","XMGS","HTBH","HTMC","KSJM","KSMC","FYLB","HTJE","LJYFJDK","分项名称","分项概算","标段" } 'B表数据接收列
            Dim dr As DataRow = DataTables("XMJDB").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr(nmb(i)) = r(nma(i))
            Next
        End If
    Next
End If