exel VB问题

jsxjd

158673995 发表于 2014-6-18 20:35
不要可以不。直接返回？

似乎不行的……

18688235083

http://club.excelhome.net/forum. ... p;page=1#pid7701023
求高手改用sql，加快读存速度

liuxi001

我也遇到同样的问题，求前辈指点！

prinform:
'开始条数
Private Sub FromTextBox_Change()
    Me.NumOptionButton = True
End Sub
'结束条数
Private Sub ToTextBox_Change()
     Me.NumOptionButton = True
End Sub
'取消
Private Sub CancelButton_Click()
    Me.AllOptionButton = False
    Me.NumOptionButton = Flase
    Me.Hide
End Sub
' 确定
Private Sub PrintButton_Click()
  If Me.NumOptionButton = True Then
       Dim beingNum As Integer
       Dim endNum As Integer
       If IsNumeric(Me.FromTextBox) Then
         beingNum = Me.FromTextBox
       Else
         MsgBox ("请填写数字！")
         Exit Sub
       End If
       If IsNumeric(Me.ToTextBox) Then
         endNum = Me.ToTextBox
       Else
         MsgBox ("请填写数字！")
         Exit Sub
       End If
       If beginNum > endNum Then
         MsgBox ("开始条数不能大于结束条数！")
         Exit Sub
       End If
   End If
   Me.Hide
End Sub


打印：
PrintForm.Show
    Dim beginInt As Integer
    Dim endInt  As Integer
    If IsNull(PrintForm.AllOptionButton.Value) Or IsNull(PrintForm.NumOptionButton.Value) Then GoTo errh
    If PrintForm.AllOptionButton Then
        beginInt = 1
        endInt = rowCount - 1
    ElseIf PrintForm.NumOptionButton Then
        beginInt = PrintForm.FromTextBox
        endInt = PrintForm.ToTextBox
    End If
点打印按钮，然后点取消，会出错。
用ON ERROR RESUME NEXT或    If IsNull(PrintForm.AllOptionButton.Value) Or IsNull(PrintForm.NumOptionButton.Value) Then GoTo errh
虽然可以跳出SUB但是再去点击打印按钮的时候，全部打印和部分打印的选框呈灰色，虽然可以选择，但是给人的感觉就像不能选择一样。