Dim wjma As String = e.Row("单位代码") + "-" + e.Row("单位名称") + "(医疗保险基数填报表)"
MessageBox.show(ProjectPath & "\接收医保\"& wjma &".xls")
Dim Book As New XLS.Book(ProjectPath & "\接收医保\"& wjma &".xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 2 To sheet.Rows.Count -1
Dim dw As String = sheet(n,0).text
Dim xm As String = sheet(n,1).text
Dim sfz As String = sheet(n,2).text
Dim sbnjs As Double = sheet(n,6).text
Dim xbnjs As Double = sheet(n,7).text
Dim dr As DataRow = DataTables("基本信息").Find("[单位] = '" & dw & "' And [姓名] = '" & xm & "' And [身份证号] = '" & sfz & "'")
If dr Is Nothing Then
dr("平均工资2015年") = sbnjs
dr("平均工资2016年") = xbnjs
End If
Next
提示运行错误：
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.8.18.1
错误所在事件：单位,DoubleClick
详细错误信息：
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。
加好友 
发短信
Post By：2017/8/25 12:03:00 [显示全部帖子]
