Foxtable(狐表)用户栏目专家坐堂 → [求助]导入数据


  共有3738人关注过本帖树形打印复制链接

主题:[求助]导入数据

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]导入数据  发帖心情 Post By:2021/2/26 12:26:00 [显示全部帖子]

老师好,导入数据时报错。

图片点击可在新窗口打开查看此主题相关图片如下:狐表.png
图片点击可在新窗口打开查看
 

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2021/2/27 9:35:00 [显示全部帖子]

老师好,下面是按钮代码。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt
 

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2021/3/1 10:34:00 [显示全部帖子]

老师,在导入时报错。



图片点击可在新窗口打开查看此主题相关图片如下:image 1.png
图片点击可在新窗口打开查看
 

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By: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
            '----根据关键字段在字段列表中的位置,取出要导入的数据值


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2021/3/1 16:36:00 [显示全部帖子]

   
        '-----根据导入模式导入数据-----
老师,这段代码有问题吗?
    


  '------添加模式-----
        Dim hl As WinForm.RadioButton = e.Form.Controls("添加")
        If hl.Checked = True Then
            Dim ndr As DataRow = dt.AddNew
            For i As Integer = 0 To dr.Count - 1
                'ndr(dr(i)) = Data(i)
                
                ndr(dr(i)) = Data(i).Trim(" ",",",".",";")      '删除空格符号
                
            Next
        End If


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2021/3/1 17:06:00 [显示全部帖子]

 老师,这个符号怎样排除  /

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2021/3/1 17:44:00 [显示全部帖子]

老师,就一个符号。


 
图片点击可在新窗口打开查看此主题相关图片如下:image 1.png
图片点击可在新窗口打开查看

 回到顶部