Foxtable(狐表)用户栏目专家坐堂 → 关于数据入库问题


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

主题:关于数据入库问题

帅哥哟,离线,有人找我吗?
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/4 14:55:00 [只看该作者]

提示很明显了,if 和 end if 不成对。自己检查代码

 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/10/4 15:56:00 [只看该作者]

我查了半天查不出来哪错了,麻烦看看哪的问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/4 16:16:00 [只看该作者]

备份项目。把代码按if 和 end if 成对的注释掉,或者去掉代码,看是哪里少了。只能靠自己检查

If 条件1
    代码块1
    If 条件2
        代码块2
        'If 条件3
            '代码块3
        'End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/10/4 16:29:00 [只看该作者]

'If  e.Selected Then

    'If e.Form.DropDownBox.name="kehushuanghuIDDropBox"

       

        'If tbl.Current IsNot Nothing Then

            'If tbl.current.isnull("客户ID") = False Then

             'If Result = DialogResult.No Then

                'Else

                  

                'End If

            'End If

          

        'End If

     'ElseIf e.Form.DropDownBox.name="posjishanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "POS机库存资料"

  

    'If tbl.current("商户ID") <> tbl1.current("商户ID") Then

        'If tbl1.Current IsNot Nothing Then

            'If tbl.current.isnull("机具ID") Then

              

                'If tbl1.Current("商户ID") IsNot Nothing Then

                  

                'Else

                 'End If

               

                'If tbl.Current IsNot Nothing Then

                    'If tbl.current.isnull("商户ID") = False Then

                      

                        'If Result = DialogResult.No Then

                         

                        'Else

                            'If lsjl  IsNot Nothing  Then

                              

 

                            'Else

                                

                            'End If

                            

                        'Else

                           

                            'If result = DialogResult.Yes Then

                                 

                                'If lsjl  IsNot Nothing Then

                                  

 

                                'Else

                                  

                                'End If

                               

 

                                'If tbl1.Current("商户ID") IsNot Nothing Then

                                'Else

                                    

                                'End If

                              

                       'ElseIf result = DialogResult.No Then

                            

                                'If tbl1.Current("商户ID") IsNot Nothing Then

                                   

                                'Else

                                 

                                'End If

                               

                            'End If

                        'End If

                    'End If

                'End If

               '

            'ElseIf e.Form.DropDownBox.name="liuliangkashanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "流量卡资料"

  'If tbl.current("商户ID") <> tbl1.current("商户ID") Then

                    'If tbl1.Current IsNot Nothing Then

                        'If tbl.current.isnull("流量卡ID") Then

                        'If lsjl  IsNot Nothing Then

                             

                            'Else

                              

                            'End If

                            'If tbl1.Current("商户ID") IsNot Nothing Then

                              

                            'Else

                              

                            'End If

                           

                        'Else

                           

                            'If result = DialogResult.Yes Then

                               

 

                                'If lsjl  IsNot Nothing Then

                                  

                                'Else

                                  

 

                                'End If

                             

                                'If tbl1.Current("商户ID") IsNot Nothing Then

                              'Else

                                   

                                'End If

                               

 

                            'ElseIf result = DialogResult.No Then

                             

                                'If tbl1.Current("商户ID") IsNot Nothing Then

                                  'Else   

                                'End If                              

                            'End If

                        'End If

                    'End If

                'End If

            'End If

        'End If

            'If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的

            'e.Form.DropTable.FinishEditing()

        'ElseIf e.Form.DropDownBox.BindingField > "" '如果是通过窗口下拉的

            'e.Form.DropDownBox.WriteValue()
真的出不出哪的问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/4 16:32:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/4 16:37:00 [只看该作者]

可以加上一些必要的注释加以区分

If 条件1 '第一个if
    代码块1
    If 条件2  '第二个if
        代码块2
        'If 条件3 '第三个if
            '代码块3
        'End If '对应第三个if
    End If '对应第二个if
else 对应第一个if的else

End If '对应第一个if
[此贴子已经被作者于2017/10/4 16:37:47编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/10/4 18:02:00 [只看该作者]

看了好几遍也没看出我的代码哪有问题呀!

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/10/4 18:19:00 [只看该作者]

蓝老师我查了好几遍也没看出错误的地方,帮忙看看是不是代码有问题,麻烦蓝老师指点
[此贴子已经被作者于2017/10/4 20:48:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/5 8:20:00 [只看该作者]

多分支形式:

If 条件1 Then
    代码1 

ElseIf 
条件2 Then
    代码2 

ElseIf 
条件3 Then
    代码3 

    .....
Else
 

    代码X 

End If

条件1成立,执行代码1,条件2成立,执行代码2,其余类推,所有条件均不成立,则执行代码X。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/5 8:22:00 [只看该作者]

没有下面这种用法

if 条件1 then

else

else

end if

把成对的if 和 end if的代码去掉就看出来的,做任何事情都要讲究方法,

        If tbl1.Current IsNot Nothing Then
            If tbl.current.isnull("机具ID") Then
                '' systemready = False
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl1.Current("商户ID") = tbl.Current("商户ID")
                tbl1.Current("商户名称")= tbl.Current("商户名称")
                tbl1.Current("客户ID")= tbl.Current("客户ID")
                tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                tbl.Current("机具ID")= tbl1.Current("机具ID")
                tbl.Current("机具条码")= tbl1.Current("机具条码")
                If tbl1.Current("商户ID") IsNot Nothing Then
                    tbl1.Current("机具是否绑定")= True
                Else
                    tbl1.Current("机具是否绑定")= False
                End If
                Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" &  vars("机具条码") & "' and 商户ID='" & tbl1.Current("商户ID") & "'")
                If tbl.Current IsNot Nothing Then
                    If tbl.current.isnull("商户ID") = False Then
                        Result = MessageBox.Show("该机具已经绑定商户,是否重新绑定新商户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                        If Result = DialogResult.No Then
                           Return
                        Else

                            msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                            '   systemready =True
                            Return
                        Else

                        End If
                    End If
                End If
               '
            ElseIf e.Form.DropDownBox.name="liuliangkashanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "流量卡资料"

            End If
        End If
[此贴子已经被作者于2017/10/5 8:24:07编辑过]

 回到顶部
总数 28 上一页 1 2 3 下一页