| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 赋值问题求帮助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116962) |
| -- 作者：xiangjiaonuo -- 发布时间：2018/4/3 14:40:00 -- 赋值问题求帮助 老师好，我现在有窗体中有表A，点击 按钮1 之后希望实现，增加12行，其中表A的 事项名称 列，会在新增的12行中依次显示甲、乙、丙、丁、戊、己、庚、辛、壬、癸、子、丑这12个字，请问按钮1的代码应该怎么写，求解，谢谢 |
| -- 作者：有点甜 -- 发布时间：2018/4/3 15:23:00 -- Dim str As String = "甲乙丙丁戊己庚辛壬癸子丑" For Each s As String In str Dim ndr As DataRow = DataTables("表A").addnew ndr("第一列") = s Next |
| -- 作者：xiangjiaonuo -- 发布时间：2018/4/3 15:33:00 -- 谢谢有点甜老师，现在又出现了一个问题，代码里是让每个字符都单出现一行中，其实我的12个事项不都是一个字，有代办、代账、房屋租赁、装修、办公家具、桶装水、绿植、打印机、网络、电脑、品宣、开业 共计12项，这种多字符的情况，代码应该如何修改一下啊？ |
| -- 作者：有点甜 -- 发布时间：2018/4/3 15:45:00 -- Dim str As String = "甲,乙,丙,丁,戊,己,庚,辛,壬,癸,子,丑" For Each s As String In str.split(",") Dim ndr As DataRow = DataTables("表A").addnew ndr("第一列") = s Next |
| -- 作者：wyz20130512 -- 发布时间：2018/4/3 15:50:00 -- Dim r As Row Dim ns() As String = {"甲”，“乙”，“丙”，“丁”，“戊”，“己”，“庚”，“辛”，“壬”，“葵”，“子”，“丑”｝ For Each n As String In ns r = Tables("A").Add() r("事项”）= n Next
[此贴子已经被作者于2018/4/3 16:49:02编辑过]
|
| -- 作者：xiangjiaonuo -- 发布时间：2018/4/3 16:06:00 -- 谢谢老师 |
| -- 作者：xiangjiaonuo -- 发布时间：2018/4/3 16:06:00 -- 谢谢老师 |