- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导入数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160919)
-- 发布时间：2021/2/26 12:26:00
-- [求助]导入数据
老师好，导入数据时报错。
此主题相关图片如下：狐表.png
-- 发布时间：2021/2/26 13:37:00
--
代码！
-- 发布时间：2021/2/27 9:35:00
--
老师好，下面是按钮代码。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
-- 发布时间：2021/2/27 9:54:00
--
可能出错的地方：
1、Dim qsh As Integer = cint(e.Form.Controls("有效起始行").text)
如果控件没有值，cint函数肯定会出错
2、ljf= s.SubString(0,s.IndexOf("."))
如果s变量值不包含"."，肯定会出错，合理地用法是
dim k as integer = s.IndexOf(".")
if k > -1 then
ljf= s.SubString(0,k)
end if
不过上面2个问题的错误提示应该都不是1楼的提示，调试一下，看是哪一句代码出错
-- 发布时间：2021/2/27 13:02:00
--
老师，这个代码过不过去。
\'-----更新和跳过模式-----\'
Dim gx As WinForm.RadioButton = e.Form.Controls("更新")Dim fq As WinForm.RadioButton = e.Form.Controls("放弃")
If gx.Checked = True Or fq.Checked = True Then
\'MessageBox.Show("进入更新模式")
\'-----判定关键字段为第几字段----
Dim key1 As String = e.Form.Controls("key1").Value
Dim key2 As String = e.Form.Controls("key2").value
Dim data1,data2 As String
\'----根据关键字段在字段列表中的位置,取出要导入的数据值
For i As Integer = 0 To dr.Count -1
\'MessageBox.Show(dr(i) & "->" & dr(i) = key1 )
If dr(i) = key1 Then
data1 = data(i)
End If
If dr(i) = key2 Then
data2 =data(i)
End If
Next
-- 发布时间：2021/2/27 14:18:00
--
看不出什么问题，请具体到是哪一句代码出错
-- 发布时间：2021/3/1 10:34:00
--
老师，在导入时报错。
此主题相关图片如下：image 1.png
-- 发布时间：2021/3/1 10:38:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错
-- 发布时间：2021/3/1 15:42:00
--
老师，这段代码过不了。
\'MessageBox.Show("进入更新模式")
\'-----判定关键字段为第几字段----Dim key1 As String = e.Form.Controls("key1").Value
Dim key2 As String = e.Form.Controls("key2").value
Dim data1,data2 As String
\'----根据关键字段在字段列表中的位置,取出要导入的数据值
-- 发布时间：2021/3/1 16:04:00
--
这3行代码只是简单的赋值，不可能有问题，也不可能会有7楼这种错误提示，肯定不是这几句代码的问题