工资主表 表事件只有一个 Datarowadding
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
e.DataRow("制单人") = _username
e.DataRow("制单时间") = dt
If _userchejian.Length >=4 Then
Dim a As String = _userchejian.SubString(0,4)
e.DataRow("单据编号") = GetPY(a, True) & "-" & Format(dt,"yyMMdd") & "-" & Format(dt,"HHmmss")
Else
e.DataRow("单据编号") = GetPY(_userchejian, True) & "-" & Format(dt,"yyMMdd") & "-" & Format(dt,"HHmmss")
End If
e.DataRow("车间名称")=_userchejian
e.DataRow("工资日期")=dt.AddDays(-1)
表D属于临时表
红色这段代码有什么问题吗？这是按钮代码
If Tables("工序录入_table1").Rows.Count<2 Then
MessageBox.Show("请先导入员工!")
ElseIf Tables("工序录入_table1").Cols.Count<4 Then
MessageBox.Show("请先导入工序!")
ElseIf Tables("工序录入_table1").Cols.Count>=4 AndAlso Tables("工序录入_table1").Rows.Count>=2 Then
Dim k As Double = Tables("工序录入_table1").Rows(1)(3)
If k<=0 Then
MessageBox.Show("请输入数值!")
Else
For i As Integer =1 To Tables("工序录入_table1").Rows.Count-1
For Each dc As DataCol In Tables("工序录入_table1").DataTable.DataCols
If dc.Name<>"姓名" AndAlso dc.Name<>"工号" AndAlso dc.Name<>"单据编号" AndAlso dc.Name<>"员工编号" Then
Tables("工序录入_table1").Rows(i)(dc.Name) =k
End If
Next
Next
End If
End If
[此贴子已经被作者于2014-12-4 14:59:09编辑过]
加好友 
发短信
Post By：2014/12/4 14:45:00 [只看该作者]
此主题相关图片如下：1.bmp