![图片点击可在新窗口打开查看](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAbYAAADECAYAAADzlAQOAAAW7UlEQVR4nO3df6xkZX3H8c/FjV6wemdNKbS2nVv8Q9TkctuEskXorq1uS2LKUiK0tREhIEiFxYq2RAkSgkYkukWlWBdcSW0LtHg1JLuCpneB0KWk4bKNgq3A3KQJWMnOuf7YO8S22z/mnnvPPPd5zo+Zc+aceZ73K7m7M2fOnHlmnvM83/M85znPmTp27NgxBe7xxx/XGWecUXcyglLGb/7fz35Fq9/fo/a292p5aUnt+XktH9qn42av0a+88aKSUoqqZe0LN37xoNTrP46ktceR1Ft7nuHLN5w7eiJrsPf+x6S12vnS88+sNzEN5dp3ttSQFqAUrz7hZ/qFbe+VpufVOnVWmm71g9yLeaq75rnjngc3nqz2/+v2urruigs3ln/qff3//+JvBt985Ij0utdVm8C69KT5bbPrwU2SFhaXtGvH/MBqCwc2lkVr/y4uLo0tmWU7/pj07vPP1LbzrlwPbDd97gFJPXV7Pam3qs9cf1nu7c3Nzenw4cOF0mC+J35u21ba9of57FF4EdheeOmo7v32f0q9SJ0o0kmv3KJL//ht+vnWCXUnDUPKU8m/9PDNeunkflCbOWmHVn6wqOiZRanXkd64O3X7ZRTysrYbu+LCnQPPuz3pk5+9Z/OK0Q+lv/qgtPuz/ef/ekD6l8el3TcU/swyvtM4Kq2FA5sDlHXZQCBzH+C40lykcq76e3967159bu/fqpeI6Ndf9c7KPi9pbm5u0+Pkd3UFt6aY+MAWB7XdF57WX/Cy9NQzy7r5iw/pgxft0K+ePFNvAjGUPJV8e8fHpelImm5p5QeLmmm1NDO/Q1JrpM9OFuq44MbLbK8l32eun5S3Euj2JK1KRyRtnTZevHqPdN9e6ekntXLjxZo5eVZ6Zkk6//LU75CW7rTvlXaEnnzd3EbaZxU1OyvdcO5gd+LBx5e1/Yz24LKDT2n79n49sPKypJ60448uljSZ3dJL+++q/DPMPIvzK5mnrjxMOwDIWqdqEx3YbEFtpSeddmpbuyR9+Z5F3bB7MvvX0Zdayaul5UN71J7fpajT0cyp/XNs7flrpMTxjK3CdS1PFmwzmJkVvrkt84i2qOR3jVupz7/QHVzp+BOk91wtfe1OzTz8gPTionTxTdJvnmX9Lq4AZ6uwzPWT69iCWxnfeVhRL5LUNpYNrtOJVja9z9YSca3j+q6238Fcv2xf/cfHdFTS1FTx822u72wLYuY6Wc/T9pm5uTnna1Wb2MBmD2orinpSFEnbT2trYWGx3kRiaHkq+YNLi5qffa80rX73o3aoPX+NVqJIMydtrFe0y8lka5HkrfSKuGPfWot0VZL637W1VfrIJ+9YX+eW667oP3j+36VOR+pFWvn7OzVjCWyjSAt8ZpCrusKKevO68Z4VYwBJS4vPLG8Es54U9Vrad2h57T39xa35j2/6DmlpLvpdkr9HlY5OSZe9+a2a//OL1wPbp7/0gLpRT5p6WVHvaH+gyWpPt3/iqoH32r5zWnrTfiPXfpF8zTwgcr2vShMZ2NKCmnpSuz2jG7/4dXU6nVrTKVXXPeO7fJX8Z9cft7evnVOb0UBQi9nywdUNE79mVgKuo3RbwXZJy/sL/uBCdVelI2tBvbvaVXdV6nal7qqkF/q/yfLF56ndWdJya1bRdEuzhxb19XPepnP3/7Nz23nYWmiu9Jf1nfOa3XRKof88LvNRT4p6K+sjJePO6KVDSzJbdrG8wSht3xlXWb5z7159QRdrWhvdFh++rJrzbVktvHh5Wg9G3SYusOUNaupF6rzY0Y9/clSv+bn6BpHkOb+BzfJW8kVkDYAw140Lb1aLLc9refL92a7UPdL/rur1v2d3tV9pP/+CtPWF5yRJ7aVFrUy31P7QdWqftVP/dfqsWkubeyfMriVXV5NLntaNuW7ytbL29WSgGljuCGoDepY3rsn6TvFzV7f0OCvzh/7hprF9lqtlnof5vroGmExUYHsp6uUOagsHFvWZ66+qNajFmj6CqInyVvLjkAxwad0zo1Z0//ZsV90jaxX22nftJirm7lpP7LKkV2x9jWZOOVWS9EtfW9TPPnbNpu3ZKpi0tKa9bjuvMs7KvdPpdzGqFw12P8b/9yLjefY286Q96zzkuHzjW8txj7wuPf/1Y/nMtHPM5nquslHX7zVRge2r3/yedu86bf15VlB725m/UV9iDQS1YvJW8kWMUsDSumfKytt9t74v9fWZmX67pf3k4Jc/7pdn9Wv7FkpJQyyt28l8vWotLWn3RdvXnvW7Fb/yzad00e+d1j+4XXtlYeGgdu3avh7YOi8u65q//Lik7bbN5mqx5TGOivuopMvOP1Pz51yy+RybevrEh/+01M9ztdZtASztQC95QDhOExXYWtPScm9FivqPZ6ZnpGlp5lVqdFBDcXkr+bzSRrSlDSLIu34ZvvfwfeuP4yB+x757Bi/QHqNxfvdUttZXb21If8J6ay1lU8OOikwzjt/kzr179YW9e4c+xzZK3rl+j7yDS+owUYGt82KkpaVIUqRWq6XZltQ6udktNQyn7kreNRQ6+biSAtxbGyqzNiK0O0zTNIesEYFZoyLHK9LBg0/1z6VJ61NqLRw42H85Ecz2LRxMvGuzMtM+zqB/qMJr2rKG99u+p+ugIK0lN04TFdgu/cN53Xr7gjQtzZ86r476QU4SQc1HJVfyWZVP2uvjGLYcB/Aj8cmUValjXsdWobqGZmfqSdu3nzbQQls4cFC7dmxPBLq1Zb+/ff38WufFZbk6aMsa7l+HL/3TYzpe/a+d55q2rBG+eUb/mtsp0r3IObYMrz9xRjd/5EI98/2OPnfXPdJ0S+pJ+/b0T5z/zoF91vcxz/PkKbOST2thZRXQrMsEioy0zLJt57sGns/MtDSzdWuhbSTTZRvwkSd9acO4syr9KiqxSJLioDZw3ZqxjuJlK4oiOUdEZh3AZAW3ugZExE6Ylt79i2/Vto++f/McktHLko7pM9dvnHNLa0VltbDyvtf1/rTlVZpidn9m969D1m/+xt+2V/IP3X1L1UnDmGXP7v91LSwMPzjmyf1fHvq9TTR/ziX9OQk0nmm3mozZ/TFRkufYELYbLj9XN1zO1Hix0INZHsfVnQCEiRYyYuwLKBuBDQDgFQIbAMArBDYAgFcIbAAArxDYAABeIbABALxCYAMAeKWUwJZ3qp4i28izrbm5ucbduRUYtyLlj/KCEAw980hWYcqapy5ePspnNn2yUqBKo95WJs9ckcAkGjqw5blXVdoN6YY9cqTQAX1l3PzTdj8tYNKNPFeka/bzrNuIp23LbOFNwq0kgHFy9ZDY7h+XVp4IZPDRyIGtjFaYbVtpdzxOex8QAtc9tFw3C3WVp8begw0YwciDR+IBHFUc+cXbtN3/6vDhwxREBM11A8kiZTFZdhmMBV9U0mIb9gS26/1139gPaBpbyytvqytPSw6YZKXdj22UIf+24BgXtLQjUQojQpXW3Wjjuut3ngNLYNKMFNiK3DZ8lG0DGFQ0IKUNFinzPDnQBCMFtjyFwHU0OUrgKtLtAvjILAO2UZBZLTi6+OGrUlpsrkLk6jrMM9LRti3z88oKbtzBF5PI7KqPFS0fBDdMKlfdXcrMI66LPF0Xa5uFLivIpQ1hpuWGELmG+aeVD/P8dYyuSPhm6tixY8fqTgQAAGVhdn8AgFe23HfffXWnAQCA0tAVCQDwCl2RAACvrI+KPPTsU/qzu29S96c/qjM92vrq1+pTF3xIb3/Lb9WaDgDAZFrvipz72Hn6Se+ndadHkrTluFfoP27ZX3cyAAATaL0rsilBTZL+5//+t+4kAAAmFOfYAABeGSmwPXfrg2WloxRNmzWhaekBgBDQYgMAeGV98Mgp1+7MXDlPC83cznO3Pphr28N8VpG7C5jrVjG/ZJH0jCtNABCaQpMglxW0ymKbfNkVHGwTwpYdSIqkZ5g7HAAAshWe3d9sSSWfu4JclQEw7c7ddbSAhk0PrTUAKEfhwJYMUFkBK369ykEmrlvjuOS52/A40wMAKFfuwOYKTrbl4+iedHXd2Zbb7j1VdtAZNj0AgHLlDmyu82t5Wm3J9cviOp9VVyupaekBgFANNdw/LUiZLbhTrt1ZeQsua5DGuA2THgaPAEA5Cgc2W+CytcpsXZRVnGuzDZmPl5mjIOP/q2xF5U1PvLzq9ABAaHJfxxYHpWT3oxnIymyZZQXB5CAQW7ffuINF09IDAKEqdIF2LBnk8iwfRpHWnWukY9UjICclPQAQkqEC2zg0bR5KAMBkYK5IAIBXCGwAAK8Q2AAAXiGwAQC8sj7zyImv3ao/2fbOOtOy7u8OPVB3EgAAE2rq3nvvPRY/Of3007V169Y60yNJ6na7euKJJ+pOBgBgAk1FUXQse7XRRFGkVqtV9ccgA/nQDFEU6fAPn607GcGbO/ENlIcGqKJe4hwbAMArhe/H5puzzz5bjzzySO7lgK8+esk1uda7+a49A+9JPkd5zDoorU6ivhoUfGBzeeSRR9hZEJysIOUKfq7lBL3iigQ01/ttQqrLgg5sWTtMMrjZdhbb8pB2nirxe9cjb6stXjcOXDfftWdT663ItrDB3KeH2cfN97iCna+CDWzJgJWnKzJ+bFueXEYrrxz83vXI28JKBjG6I8tjBqD4eXJ/j5kHema5CFmwgS3eAWzBLfmcShOhSWtp2VpktqBGsBuOGZhsB3C2+invgXgogg1sAOzyBKRka80lLfDBLdmbFD8ues7fbMlJYR2kM9xfg036UI9wgKLSWmU337WHgDYEV9d73vcm35ds1YVWp9FiW8MoSCDfgI94oEhyfc63lSOtu9HGDGa25SG22Ahsa7IGkwAhyHuNWtry+H0EueKKBqS0wSKuQBcCAps2Hx3Zgptrh0t2YcbLMDp+73rZgpJrWSxt6D/ysY36db1mk3Z5UkiCD2y2HcW2A7l2JirWavB718fsZjRfS3ZF2gaR0GIbTTIw2UZr5+1VCjm4BTsJcp4jft9aBU3MhxA1cRLkvEEoqyVnu0i7qcGtiZMgu4b5p12SZDvPNursJeNURb0UbGALEfnQDE0MbCFqYmALEbP7AwCQgcAGAPAKgQ0A4JWpTqdT+Tk2AADGZcs4Tp5GUaR2u1355yDdysqKZmZm6k5G8MiHZiAfmqGKfKArEgDgldov0J6bm9Phw4cLvTY3N+fcnmtbSEc+AOMXl6208ldkPfTVFtiSlWL8OM64WJyB5rJkxg5T6ZrbDxn5AJQvGYhMtv09b9CirOSTO7BdcNujuvfqs0r74LQMMl9zZXrWjpB1BGRbFtqOQz40g+1AApMrGdTMA8D4f1v5MtdLsm0PdrkC2wW3PVr6B5sZW6Qys7UyYsNmep6WhY/Ih/qNkgcoz0Pf+rae/u53nK+/6c1v0Tve/ru5t5cMbkXztOjBIwblCmz3Xn1W6cEtefRvK9jJ9VzvN5mVYpFK0tVt4DvyAeh7+rvf0fuvvNL5+l/ffnuhwFYErbFy1XKOzXakn6xUi5wkTVuvaBdYaMgHoBrDtNBcPSAEu+JqCWx0uzQD+QBUY9SeB0ZAjqZxoyKr+gzYkQ/Ahh//aEXv+chDm5bffcs7Cm+LbvX61BbYkkPIiwxWGOUErLktkA+AaZgghmbJNfNIPHCkzAEkRQYYxBVp8txPcnkZLY3kOaaQkA/1i3+7+I/up/ocPbrq/CsqbUj/MCOPbc9hl3tUZJlcGe4q1K6Rd1mDHIqOxgsN+dAcoX5vXyXLQZFZQ1wHiXRrFlPr4BHz/E7e0XfJbSS3aW6DLrB05AOw4U1vfovuv//+1NfzsnXxm2UjbVYS14El5SWfqSiKKr9tDbP7NwOzmTcD+dAM5EMzMLs/AAAZCGwAAK8Q2AAAXpnqdDqVn2OTpHHcqRsAgC3jCDhRFHGStgE4Wd4M5EMzkA/NwOARAAAy1DalViztuinXa2nXcnCh63DIB6D58l7sXeSicB81bhJk2+0azGV5ZqXPcyFjiBluIh+A+pkzjiSlXaydVXZCLVuF76Bd1vRaaT943mmesjK26IwXIR7dNC0fQr4PVYj7H/pcc63a7pOYfI+5XpJreyHsY5mB7YLbHh0IZubzYdnu1jzMxKBmhg6baaFOVdOkfBglLZMu1P0PG5LBbdQ7aIw6Z+ukq/W2Na5+4DxH7Xm6vYpOvhtSxsealg+hCnX/w3CGuZNGSPtYZmCrqrVmPs4zS7xrW0UqXVsaQtW0fAi1tQYM00Jz9ZhQbgq02MoKahIVWFM0NR+alBZgHEZtTYU8AtIm9+CRKu7JZj4uO1NolWVrWj5QOBGqkLoKq1Z48EhZbPcryjLqCVVzW2hWPhDUAJQh18wjF9z26MBfGYoMMIgrPPMmfK67zY6SntACXhPzIfkXilD3P2xIG9I/zEhl83lI+1ihwSNlcWWg64jdNfIua5BD0VGRoWlaPoSYB7GQvzsGy5FrlHLa+8yDSlu3Zkj7WC3D/ZMZGCsy+i65jeQ2zW3QFZmOfACawXZKwCxLtrKS1qIL+ZzdVBRFld+2Jooitdvtqj8GGZjNvBnIh2YgH5qB2f0BAMhAYAMAeIXABgDwylSn06n8HJskjeNO3QAAbDn8w2cr/5C5E9/ASdoG4GR5M6ysrOjXb3pX3ckI3pPX30d5aIAq6qXa76ANhOq5Wx+sOwnBOuXanXUnARWqPbClXTflei3t2oyQLkIsE/kANF/ei7eLXOTto9oCm2vyXdvtF8xleWalz3NhYogZbiIfgPqZM4gkpV18nVV2Qi1buQLb5/evrj/+wDnHl/LBaT943mmesjK26IwXIR7dNC0fQr6vVIj7H/pcc63a7pOYfI+5XpK5vZDKVmZg+/z+1YFgZj4flplRRWeXtz2Whs+wUKeeaVI+jJKWSRfq/ocNyeA26h00ssqS72UrM7CV1UIzJY/+bT96cj3X+01FZqp3pSc0TcoHnwtallD3PwynjDtp+Cz3Oba4O7Ks1pr5OM8s8a5tFal0bWkIVVPzgUKL0AzTQnP1mGTdmcP31ppUILDFAa2MrsjQfuSmamo+2GY6B3w2aou96G1ufNe4UZFVfQbsyAegGarujg4lqElDDB4pyzBH5aOeUDW3hWblQ0gFDxin0MpW5iTIHzjneH1+/+r6X1lBrsgAgzhTzJvqmdd+jJJxyXNMIWlSPsTbiP9CKoih7n/YkDakf5iRyubzZNnyfT/L1RVZdovNlYGuysw18i5rkEPRUZGhIR+aI9Tvjb5kuXGNUk57n3lQaXZrhrZ/1XKOzXbBYJHRd8ltJLdpboOuyHTkA9AMtlMCZlmylZW0Fl3Il5BMfeOJb1d+25q5E9+gdrtd9ccgA7P7N0M8uz+TINfnlGt3Mrt/Q1RRL3GjUQCAVwhsAACv1H7bGiBU3BMMqMZUp9Op/BybJLVarXF8DAAgcFte+arpsXzQ0dXeWD4HABA2zrEBALxCYAMAeIXABgDwCoENAOAVAhsAwCsENgCAVwhsAACvENgAAF4hsAEAvEJgAwB4hcAGAPAKgQ0A4BUCGwDAKwQ2AIBXCGwAAK8Q2AAAXiGwAQC8QmADAHiFwAYA8AqBDQDgFQIbAMArBDYAgFcIbAAArxDYAABeIbABALxCYAMAeIXABgDwCoENAOAVAhsAwCsENgCAVwhsAACvENgAAF4hsAEAvEJgAwB4hcAGAPAKgQ0A4BUCGwDAKwQ2AIBXCGwAAK8Q2AAAXiGwAQC8QmADAHiFwAYA8AqBDQDgFQIbAMArBDYAgFcIbAAArxDYAABeIbABALxCYAMAeIXABgDwCoENAOAVAhsAwCsENgCAVwhsAACv/D8Dy9SCJ2o62AAAAABJRU5ErkJggg==)
如图所示的折叠表,我在表A的DataColChanged事件中代码如下:
Select Case e.DataCol.Name
Case "父ID"
If e.DataRow.IsNull("父ID") = False Then
'当父ID变化时,自动维护当前行的层级
Dim index As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow) '查找修改的单元格所在的row的行号
Dim current As Row = Tables(e.DataTable.Name).Rows(index)
If Tables(e.DataTable.Name).GridTreeVisible = False Then '如果没有开启折叠模式,则开启。因为只有开启折叠模式之后才能获取正确的层级
Tables(e.DataTable.Name).ShowGridTree
End If
Current("层级") = Current.Hierarchy
End If
End Select
发现问题:当通过"左移""右移"当前节点时,父ID虽然是会自动维护而变化,但是父ID变化却不会触发上述代码。不知道算不算bug