能帮个忙吗？

LYP6160

哎，我怎么变成亚鹏了？？？我是小聪

我同意

聪哥，恕小弟望文生义之罪。
我想学代码，聪哥有何推荐教材，最好能下载或在线阅读。
关于本例代码，窗体中只有两个按钮，为何“命令17_Click()"的代码还存在？是否可删除？

Private Sub 命令19_Click()
On Error GoTo Err_命令19_Click

        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
      下面打开表（还是记录？），一般参数缺省是否如此句？
       rs.Open "订单", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        rs.AddNew
        rs("订单号") = Me.订单号
        rs("客户") = Me.客户
        rs("运输方式") = Me.运输方式.Column(1)
        rs("公里数") = Me.公里数.Column(1)
        rs("运价") = Me.运价
        rs.Update

MsgBox "记录已成功保存", , "提示"
    下面这句原来是用来干嘛的？
'   DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_命令19_Click:
    Exit Sub

Err_命令19_Click:
    MsgBox Err.Description
    Resume Exit_命令19_Click
   
End Sub

另外在窗体里，价格＝[运输方式]*[公里数]，它是怎样自动取到运输方式对应价格和公里书对应系数？而不是想窗体里的 水运 * 1－100岂非出错？

请解惑。谢谢

LYP6160

1．“命令17_Click()"可全部删除，这是你的原代码，是没有用的。
2．下面打开表（还是记录？），一般参数缺省是否如此句？
       rs.Open "订单", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
－－是打开指定的表
3．  下面这句原来是用来干嘛的？
'   DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
－－是你原来的代码，也可以删除的。

我同意

如果运输方式的来源 Select 第一列是价格，可以理解为价格＝[运输方式]*[公里数]自动取了第一列计算，那么运输方式项如何在窗体里显示正确的运输方式而非价格数？

wewyhy

我同意

先谢谢聪哥在13楼的解释

wewyhy

我搞错了，运价多乘了公里数

我同意

没事，也谢wewyhy哥了。数字计算公式不影响思路的，表紧，吾正在研究您的方法。

LYP6160

以下是引用我同意在2003-11-25 12:03:21的发言：
如果运输方式的来源 Select 第一列是价格，可以理解为价格＝[运输方式]*[公里数]自动取了第一列计算，那么运输方式项如何在窗体里显示正确的运输方式而非价格数？

查看一下列表框属性中“列宽“就知结果了。

我同意

请教wewyhy哥，您在窗体定义的”运输方式“项 Select 次序是 方式、价格、系数
实际计算应是 价格*系数
但公式里是 column(1)*column(2) 好象是 方式*价格
但结果确实是是对的。
如何理解？ 别笑我愚笨，我就想把这些东西搞懂。