×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 2436|回复: 10

[vb,vc,delphi] 紧急求助

[复制链接]
发表于 2010-8-13 17:25:49 | 显示全部楼层 |阅读模式
本帖最后由 yyzcy 于 2010-8-13 17:32 编辑

在制作一个表格“输入订单信息的界面”中,点“确认”按钮,值无效,无反应,请帮忙解决。谢谢!

Private Sub Cancel_Click()
   Me.Hide
End Sub
Private Sub CommandButton1_Click()
   If Check() = False Then
      Exit Sub
   End If
   Application.ScreenUpdating = False
   Dim table As Worksheet
   Set table = Worksheets("订单信息")
   Dim aimrow As Integer
   aimrow = table.Range("A1").CurrentRegion.Rows.Count + 1
   With table
      .Cells(aimrow, 1).Value = 登记日期.Value
      .Cells(aimrow, 2).Value = 客户名.Value
      .Cells(aimrow, 3).Value = 合同号码.Value
      .Cells(aimrow, 4).Value = 合同数量.Value
   End With
   登记日期.Value = ""
   客户名.Value = ""
   合同号码.Value = ""
   合同数量.Value = ""
   Application.ScreenUpdating = True
   MsgBox "订单信息添加成功“"
End Sub

Function Check() As Boolean
        
    If check登记日期() = False Then
        Check = False
        Exit Function
    End If

    If check客户名() = False Then
        Check = False
        Exit Function
    End If
   
    If check合同号码() = False Then
        Check = False
        Exit Function
    End If
   
    If check合同数量() = False Then
        Check = False
        Exit Function
    End If
   
End Function
Function check登记日期() As Boolean
    If 登记日期.Value = "" Then
        MsgBox "登记日期不可为空"
        check登记日期 = False
        Exit Function
    End If

    If Not IsDate(登记日期.Value) Then
        MsgBox "登记日期不能识别,请输入YYYY-MM-DD格式"
        check登记日期 = False
        Exit Function
    End If
        check登记日期 = True
End Function
Function check客户名() As Boolean
    If 客户名.Value = "" Then
        MsgBox "客户名不可为空"
        check客户名 = False
    Else
        check客户名 = True
    End If
End Function

Function check合同号码() As Boolean
    If 合同号码.Value = "" Then
        MsgBox "合同号码不可为空"
        check合同号码 = False
    Else
        check合同号码 = True
    End If
End Function

Function check合同数量() As Boolean
    If 合同数量.Value = "" Then
        MsgBox "合同数量不可为空"
        check合同数量 = False
        Exit Function
    End If
    If Not IsNum(合同数量.Value) Then
        MsgBox "合同数量必须是数字"
        check合同数量 = False
        Exit Function
    End If
    check合同数量 = True
End Function

Function GetRecord(aim As String) As Integer
    Dim table As Worksheet
    Set table = Worksheets("订单信息")
    Dim rownum As Integer
    rownum = table.Range("A1").CurrentRegion.Rows.Count
   
   
    '信息表为空的情况
    If rownum = 2 Then
        GetRecord = 0
        Exit Function
    End If
    '搜索信息表每一行
    Dim row As Integer
    For row = 3 To rownum
        If table.Cells(row, 3).Value = aim Then
            GetRecord = row
            Exit Function
        End If
    Next row
    '没有搜索到则返回零值
    GetRecord = 0
End Function

'判断指定字符串是否是数字的过程
Function IsNum(aim As String) As Boolean
    Dim test As Range
    Set test = Worksheets("输入信息统计").Range("I2")
    test.Value = aim
    IsNum = Application.WorksheetFunction.IsNumber(test)
    test.Value = ""
End Function

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Initialize()
     Dim 客户名1(13) As String
     客户名1(0) = "AAI"
     客户名1(1) = "MAST"
     客户名1(2) = "太平洋"
     客户名1(3) = "ZG"
     客户名1(4) = "COLBY"
     客户名1(5) = "西班牙"
     客户名1(6) = "DANA"
     客户名1(7) = "ODC"
     客户名1(8) = "澳洲"
     客户名1(9) = "欧阳"
     客户名1(10) = "PANACHE"
     客户名1(11) = "利丰"
     客户名1(12) = "DSI"
     客户名1(13) = "DORA"
     客户名1(10) = "SARAMAX"
     客户名1(11) = "WENDY"
     客户名1(12) = "NECESSITIES"
     客户名1(13) = "泳衣"
     客户名.List = 客户名1
     客户名.ListIndex = 0
End Sub
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=318414
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?[立即注册]

x
发表于 2018-5-10 16:31:52 | 显示全部楼层
酷素材
顶顶多好
回复 支持 反对

使用道具 举报

发表于 2018-5-10 16:15:00 | 显示全部楼层
很好哦。。。
回复 支持 反对

使用道具 举报

发表于 2018-5-10 15:55:04 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

发表于 2018-5-10 16:31:42 | 显示全部楼层
酷素材
教程网我挺你
回复 支持 反对

使用道具 举报

发表于 2018-5-10 15:47:33 | 显示全部楼层
酷素材
楼主我支持你
回复 支持 反对

使用道具 举报

发表于 2018-6-10 20:57:08 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

发表于 2018-6-10 21:09:59 | 显示全部楼层
说的非常好
回复 支持 反对

使用道具 举报

发表于 2018-6-10 20:19:48 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

发表于 2018-6-10 20:26:57 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

发表于 2018-6-10 20:29:44 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345