Question

我有一个用于输入采购订单信息的用户表单。然后，当我需要更新信息时，我会按PO＃搜索，并且记录将显示在我的列表框中。一切工作正常，除了当我单击列表框条目以填充我的用户窗体时，它输入的是今天的日期，而不是记录中已经存在的日期。

我对VBA还是很陌生，所以我相信大家都会看到我可以在哪里修剪代码。但是我只需要列表框将记录中的确切信息转移到我的用户表单

Private Sub lstdisplay_Click()

If lstdisplay <> "" Then

    Me.txtPO.Value = Me.lstdisplay.Column(0)
    Me.txtconf.Value = Me.lstdisplay.Column(1)
    Me.txtVendor.Value = Me.lstdisplay.Column(2)
    Me.txtname.Value = Me.lstdisplay.Column(3)
    Me.txtPODate.Value = Me.lstdisplay.Column(4)
    Me.txtPOamt.Value = Me.lstdisplay.Column(6)
    Me.txtpaidamt.Value = Me.lstdisplay.Column(7)
    Me.TextBox1.Value = Me.lstdisplay.Column(8)
    Me.TextBox2.Value = Me.lstdisplay.Column(9)
    Me.TextBox3.Value = Me.lstdisplay.Column(10)
    Me.TextBox4.Value = Me.lstdisplay.Column(11)
    Me.TextBox5.Value = Me.lstdisplay.Column(12)
    Me.TextBox6.Value = Me.lstdisplay.Column(13)
    Me.TextBox7.Value = Me.lstdisplay.Column(14)
    Me.TextBox8.Value = Me.lstdisplay.Column(15)
    Me.TextBox9.Value = Me.lstdisplay.Column(16)
    Me.Txtship.Value = Me.lstdisplay.Column(17)
    Me.TextBox10.Value = Me.lstdisplay.Column(18)
    Me.txtRecon.Value = Me.lstdisplay.Column(19)
    Me.txtPODate.Value = Format(Date, "mm/dd/yy")

Else
End If

End Sub

Answer 1

为什么今天是星期几？

Date函数返回包含当前系统日期的变体（日期）。

Now函数返回一个变量（日期），该变量根据您计算机的系统日期和时间指定当前日期和时间。

Debug.Print Format(Date, "mm/dd/yy")将显示通过格式“ mm / dd / yy”格式化的当前系统日期，从而产生一个字符串（例如11/25/19）。

语法仅为Date（或Now），没有任何参数。

C.f。 MS语言参考Date function和Now function

可能的误解：声明变量时，例如，不要将Date函数与数据类型Date混淆。通过Dim myDate As Date：-）

为什么我的点击列表框会显示今天的日期

1 个答案: