已经能够上传了,谢谢甜老师.请问代码如何修改?
这是原来代码:
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "文本文件|*.txt" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim s,ss,sss As String
Dim m,n As Double
Dim dt As Table = Tables("工资查询_Table1")
dt.Filter = "开户行 = '中行'"
For i As Integer = 0 To dt.Rows.Count - 1
Dim dr As Row = dt.Rows(i)
Dim dr1 As DataRow
dr1 = DataTables("员工信息").Find("[姓名] = '" & dr("姓名") & "'")
Dim ds As String = Format(dr("日期"),"yyyyMMdd")
s = "|||3831583211111|" & dr1("账号") & "||||" & dr("姓名") & "|||" & dr("实发工资") & "|3831583211111|" & ds & "|工资|" & "0|||1|||"
ss = ss & vbcrlf & s
m = m + 1
n = n + dr("实发工资")
Next
ss = ss.TrimStart(vbcrlf)
sss = "OBSS|2|" & m & "|" & n & "|" & vbcrlf & ss & vbcrlf & "OBSSEND"
FileSys.WriteAllText(dlg.FileName,sss, False)
End If