ActiveReportV2.0升级成ActiveReportV11.0后，group分组不能正常显示
本帖最后由 zhangliklmyt 于 2020-7-1 09:40 编辑data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAucAAAG7CAYAAABgozvZAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACEESURBVHhe7d0/j9xG/ifgaeMCX+YFdoHd4IDbDe8dSLCD9UuQIb8BOfUm3mwNB+fTu7hXcMCFUiJADmxIL+Eusg+4wAvYgJTtZvPzd8Qa1dQUu0k2yS52Pw9QGJLNP9XVbPZHVJHcvfnlx+urkV5+9/Lq0eMnV29//amb8s5Hv/9zNwQAAIz1QfcXAAA4MeEcAAAacdbhfLfbdUPtiDqp1zit1Su1Vav1akneVq3WrSWt1inXSh1rdWixXq22Vwv16tt+a/VKbdVqvU4tr0OqUwt1K7e/pTo1Gc7naLwlPoBj1xnLX19f35Q569divVpbTzLX+lJ7zeXYesXyc3+G4dh1pTrN2VahxfZqsU7hmHWVy85ZxznrFY6tTzJnvWK8xfaaq15LLHvMOpMl6pXa6xhz1ivG5/gMw5z1SnU6tq3CnPWK8Tnaa606rR7Oj3ljpX3rGrtjrFGvsXUKLdZrjTqFeG1M3daoV5o+Zltr1CvEa1GGttla9Qqt1muoFusUll7XlGNWOEW9htR17Xq1ss9PqdfadQox36G6rV2vNM+h7a5drxDzRdnXZqeoV2i1Xvu0VCd9zk/g0E57Ki3Vq9U2ClGvKHN+kefQar1alNqp5f2M89HqftZSvVr+Lka9okQdW9JqvVqU2qnl/Sy3ejifs1Gsa5xD64rXh3zJ16pT+iKl4UPWqNeUbazVXmOtta6xB8M16pXqFKWlfSvqMqQ+yRr1msK6xjnVumLevv3tFHXK9/9W6jV0e6doryFOsa747A7Nu3a9Up2itLRvRV1q9XHmfGVDdtq19e2opxRtlEoab0GLbcV5SMeGVvZ15uGYP0za91NbtdJmjvksZd8xv8lw3sqXsnRsvdKXPP7O+YU/tl6xfKrTXG1/rp/hEm0VzrVeS2mxvVqsU5hzXWGuOs5dr7nMWa9op/Q3DU819z4xx+d4CZ/hXG0VLqFec2qxvdaq01mfOZ+zEecQ9clLS1qsU6Kthmm5Xi1qsb1arVOS6tdCHWt1aK1eqa1SOaVy+y3WKdFWdVuqVwtabK+hddKtBQAAGiGcAwBAI3b/+3/9z0nn+B89fnL19tefujEAAOBYu+sjOuAI5wAAMJ/dm19+PG3veAAA4IY+5wAA0IhZzpy//O5lNwQAAEw1Wzj/9K+fdmMAAMAUH3z4n/7z1ZjyP/77025RAABgTjd9zj/86I+DyvMXz24WAgAA5nd7QWjcFvFQWdLv/vCXO2UJtfXOta2l6gwAwOWY/W4t0f/8UOnz5pcfb4uwCwDApVnkVopxcWhfAQAA6jZxn/M4i55KLp+ev1abNkTfcnNMT8PlvAAAkDQVzvNQG11bklp3lzRPmi/9zadHSfMnMZ6XJIb7lqtNL+dP9q0nvQYAADWLhfMxfc2TPNTmItSmkqtNC33zh3wbY7dTTu/TN3+5PQAAyC0Wzufqbx4Bty9MD5levrZPbbl92++Tzz90GQAA2ESf8z59Z6hz+17bZ+pypbnWAwDA+Ws+nMeZ5xTAy6Cbn51Or5Xzx/gQfcuV05Oh09N6AADgkN2/3vx8HU//HPKQoeg3/ur711dff/OPbso7MT11WxnSt3xqF5dSGYoBAGDLZg/nAADANJvucw4AAOdEOAcAgEbcdGt5/uJZN3qYbi0AALCM3VdfPrnuhgerhfNHj590YwAAwCFPv33aDb23u/5NNzxYefGocA4AAOPUwrk+5wAA0AjhHAAAGiGcAwBAI4RzAABohAtCAYCL8/qH190Q9Hvw8YNuaBnu1gIA8JsI50sHL7ZtjX3E3VoAAKBhwjkAADSiGs53u91NAQAA1lMN59ENfUJXdAAA4Ai6tQAAQCOEcwAAaIRwDgAAjRDOAQCgEcI5AAA0QjgHAIBGCOcAANCIe+E8PYAoLwAAwPLuhfP0AKK8AAAAy9OtBQAAGiGcAwBAI4RzAABohHAOAACN2F1PuOLz7a8/dUPvvPzu5dWjx0+6MQCAtr3+4XU3BP0efPygG1rG02+fdkPvCecAAHACtXCuWwsAADRCOAcAgEZUw7kngwIAwPqq4Ty6oU/oig4AABxBtxYAAGiEcA4AAI0QzgEAoBHCOQAANKI3nLtbCwAArKv6hNAUzPvu2LKFJ4T2PZb34ScPuyEAxnj1/atu6K6lH28NcK5GPb4/AvrWw3n+g3HoHxwA7Fc7jpbHWgCGu9jH96d/aAjmANOl42gK6QDM7+zD+b7/AQBgPAEdYDlnHc4Fc4BlCOgAy3ArRQAAaETvBaH7bOGC0LnOmvfd9WUrXKjFFm39e7cVcxwf/A8lwHSj7tayz6WF860GXHdRYKvsu8ubq42Fc4DpLvZuLQAAsAXCOQAANEI4BwCARgjnAADQiGo4jwt8ogAAAOuphvO48t7V9wAAsC7dWgAAoBHCOQAANEI4BwCARgjnAADQCI/vP8Dj+2F99t3leXw/jBPfGThk7HG19vh+4fwA4RzWZ99dnnAO4zgucciUfaQWznVrAQCARtwL53EWpCwAAMDy7oXz+O/JsgAAAMvTrQUAABrhgtADtnwBiItX2Kpz3XfjfbVkjjae61gLrfObyiFT9hF3a5mgtR/TsRxI2KKtf++2QjiH4YRzDhHOD/CDAbSmpR/3ueriWMulEM45ZK5wrs85AAA0QjgHAIBGCOcAANAI4RwAABpRDedxgU8UAABgPdVwHlfeu/oeAADWpVsLAAA0QjgHAIBGCOcAANAITwgFWIknhJ63aFPgss3xhNBqOE93auk74ArnAOMJ5+etpc/3VNI/UM6xHfzjiyEWCef5gbbvoCucA4wnnJ834fy8wzkcMuUYUAvn9/qcO8gCAMBp9F4Q6mwIAACsy91aAACgEdVw7qw5AACsr3pBaK4W0l0QCjBeuliuFS4InZcLQl0QymWb64LQe+F8COEcgOBY+55wLpxz2eYK5/qcAwBAI4RzAABohHAOAACNEM4BAKARwjkAADSiGs7j6vsoAADAeqrhPG6L5dZYAACwLt1aAACgEcI5AAA0whNCAZjMsfY9Twjd1hNCU10hzLHPzvWEUOEcgMkca98T9gDhfA8/GADLc6xlq/xPB8kp94VaONfnHAAAGiGcAwBAI+6F8/gvyrIAAADL0+d8Zi4IguPpB7odpzrWwrH0OSdprc+5cD4zX3Y4ju/QtgjnbJVjDUlr4VyfcwAAaIRwDgAAjRDOAQCgEcI5AAA0QjgHAIBGCOcAANAI4RwAABpRDedx39ooAADAeqrhPB4o4aESAACwLt1aAACgEcI5AAA0Ync9of/K219/6obeefndy6tHj590Y22IPvOn6Jrz+ofXVw8+ftCNAWP5Dm3LqY61cKw41kByqt+dp98+7YbeE85nJljAcXyHtkU4B5iuFs7drQUAABpxL5ynsyBRBHQAAFjPvXDuvycBAOA0eu/Woh8hAACsqzec69YCAADrqvY5BwAA1lftcx4BXbcWAABYV7VbS4RywRwAANblIUQz88QxOJ6HEG2H/2UFmM4TQgGYlWMtwHSDnxAKAACsTzgHAIBGVMN5/DdlFAAAYD3u1gIAAI3QrQUAABrhbi1cBLe4ZAi3cBzPsRZgOrdS5GJFOBe82Mc+Mo1jLcB0bqUIAAANE84BAKARwjkAADRCOAcAgEbcC+dxcU9ZAACA5d0L53HVfVkAAIDl6dYCAACNEM4BAKARwjkAADRCOAcAgEYI5wAA0AjhHAAAGiGcAwBAI4RzAABoRDWcezIoAACsrxrOPRkUAADWt/sthI9O4W9//akbeufldy+vHj1+0o21Ic78+wcGyesfXl89+PhBNwb32UemmXKsjbauefjJw26IJb36/lU3BBzSd1zq+x6N/R15+u3Tbug94ZyL0BcGICecjzc1nOdtnbpROmavwz9EYZh935XacWvKd0s4B2BWx4Zzx+r1CecwzJDvSn4Mmyucu1sLACchmANbF8ewOJbNaW84n3tjABAEc+BczB3Qe8O5YA4AAOvqvc+5MxoALCHufuA3BjgncUyb645T98K5YA4AAKfRe+Y8dWvRvQUAANZxL5zHWfNU0jgAALC83gtCAQCAde0N586aAwDAepw5BwCARgjnAADQCOEcAAAaIZwDAEAjhHMAAGhENZznDyECAADWUQ3n+UOIAACAdejWAgAAjRDOAQCgEcI5AAA0QjgHAIBGCOcAANCIsw3nr75/5XaQAAuKY2wca8dyfAbOzdTjYY0z5wAA0Ih74TySf1m2Ku7VvuX6A7Qqjq3HPA/D8Rk4F8ceD0v3wnmsvCxbFvX3AwAwn7l+iByfga2bO5iHi+jWkn4A/AgATJeOo3P+EDk+A1u0xPEw2f220tFrffvrT93QOy+/e3n16PGTbqwNr3943Q3d9fCTh90QAGP0Xez04OMH3dAwjs+nNddFa3AJ+o5Lcx0Pn377tBt672zDOQAAtKwWzt2tBQAAGiGcAwBAI4RzAABohHAOAACNEM4BAKAR1bu1pPvN9t3IpXa3lj/96b91Y3e5NRYAAJdg7C0WF72VYoTzfMMp4LufKqwv/lHsuzeedptGu22LzwuWk05K5/E6nu0wJpwv0q0lgnl88X35AQC4FCn/ppPUU8wezlMwBwCAS3RMQJ81nAvmAAAwPaC7WwsAADSiGs4j5acylAtMAADgvcjG6SLRoXrPnMdVphNu5AIAAEx0L5yns+VT+siwX/zLqfavp77p7JfaLS81fdO5L2+rWru10JYt1mur7bZF5/o+YrwsrKNs6zTuM6jL20UbLaN65jydNRfQ5xE7b9qBU9efNC1KTNMlaJrUdmX7pfZmnGjHfF/N2zHtq9y3pXaL+vSV1kUdy/bdmryt03CUeF9pP8mHWU/52aS/afiSpXYo28V+uox74VxXlvnVDrQOvrSoPPDWhk8ptp++N6leed3y8TWVdagNn1JsP7VbfuypTWtV+R5O3abHKNs9vZ/0nvJhlhXtXH4eaTj9TcOXLLVD3i4sp7dbC/MpD7RpPE0rxxlO282vdhDOx1uR16ssp1Buvxxnuvh+l+0Y41v83uf1Lo9daX8p3yvryD+Pvs/o0qT3n5c0Pf3NpzOP6uP7U0DvO4tee3z/Z59/4YByQOy8qY3ScPmXcfrardbWl2Tqe47lDjlVW6a67ftcj/2sL6Xd+kyt47Ht3ieve63e+fQltr+Esr6p7fre3xLSNi9d32dBP200TbRbX6Ye/Pj+WEHfSpgmHQTS31CbBqcWB95UauOnUm4/xlv67pTtVI6fSm37eR3zv62JeuV1PDS8Bam+se9GyeueXsunsZy+dk6fTV64m1m0zbKq4ZzllAfi/C/TOEjMq2zPcpy6sp3KcaYr27Ic35qodxz3o+TvYevv65z4fX4v7ZN5m+SF+QnnK8h36lw6ADsQH8cBYj6pLfM2rU3jrlob1aYxTdmO5fiWlL8HMZx+A7b8vs6N3+d30v6a75MxLS/MTzg/kXxnL3d8jqc9xysPuOmg2ze9NVGvU3zuZdtE2Ted8frabottGvto2k9SSfttPo3TSp/Jpf+WlO8/xvPCMoTzFdR24PwA7GA8TbSZg8N88gNuKvumt6CFupRtk+rUN53xou3KY+TWv//lPpGGy7+so9yf0v5W7newBuH8ROIgkB+EHYini4Nn3w+1A+t5Sp95XvLp7Je3V/63RflnWvubhremrHsM578JW31f5yL/LLgv7b/aZxlupbiitCPvO+hqQ+bgoDmNdptGu22LzwvWFd+5vkztVoonlg6G8bevAABwuXRrAQCARgjnAADQCOEcAAAaUb0g9JC+C0IBAID34prCBx8/6Mbuql0QOls4//Svn3ZjAADAFB/8++0/r8aUv//NGXIAAFjCTZ/zDz/646Dy/MWzm4UAAID53V4QGl1VDpWl/e4Pf7ktpaHTkrHz7zNluanbAgDgcs1+t5bof36o1ESYffPLj7dl6+E23gMAAIyxyK0U4+LQvlKTgnnuHAI6AACM0fR9zpc8+xzBP5UkDZfTQ5o2ZjoAAIxxG85r3U/ysqZ9gbfvtZp980fwTyV/LYZr0/vm75sOAABj3Ybz6HLy6PGT3jLWMQE/hd1SHoRrr5f2zR9BOpXckPXm+tYDAABj3enWUrtDSypjlX3No7QignRfaB9jrvUAAEBooltLBNvyzLMz0QAAXJrFurWMlQJ6KkueiS63NUQ+f6rblPUAAECf3b/e/HwdT/8c0nUlzqC/+v711dff/KOb8k5MT91Whpxlb6mLCwAAtGL2cH4K5VnrJc+6AwDAUu5cELpVEcbzAgAAW3QW4RwAAM7BTbeW5y+edaOHtditBQAAzsHuqy+fXHfDgwnnAAAwv5sz593wIF9/87VwDgAAC7jpcx53axlSxnR/AQAAxrm9IDR/VH9fWdq+B/oMnRby9ZQFAABa1cxDiCI457dBPDQeatNKQ+YBAIAWLHIrxQjffaWmFqBjPKYDAMClaPo+50uc8S4DfxqPv3nJ9U0HAIA53Ybz6I6yr6ypLwzn08vX5hD/GEglrT/+1qYDAMDcbsN5dDl59PhJbxnrmICfgnApD8m114eI5crgfUjMlwoAACzlTreW8u4seRmr7GseZavyfxAMCfMAADBFE91aIvCWZ6WXPEudtjclaDt7DgDAUhbr1jJWCsypnOIMdW37LdQLAIDL0Mx9ztdUC9mCNwAApzZ7OD+FCNa5fSG7L4QL5wAAnNqdC0K3KkJ1Xvbpe/3QcgAAsLSzCOcAAHAObrq1PH/xrBs9rMVuLQAAcA52X3355LobHkw4BwCA+d2cOe+GB/n6m6+FcwAAWMBNn/O4W8uQMqb7CwAAMM7tBaH5o/r7ypLiVoZ5mVu+ziXWDwAAx5r9bi3RxeVQ6ZPfDnFogB46n1slAgDQukVupRj9z/vKUGMCOgAAnIPN3Oc8gnoqSRoup5XzhXIcAABacxvOa91P8nJKEaxrXV5SV5X0N9TmAwCALbgN59Hl5NHjJ71lrLkDfgTtVPYZOh8AALTmTreW2h1aUhmr7Gse5Rj5GfEoNRHID80DAACtarZbSwraNc6KAwBwjm6eEBoPGIqz4x/9/s/d5Pvi9Qjpr75/vfcJoflwTd/rZeAug3n+eu21NK1vPeU85ToAAODU7oTzQ4aG80OO7eICAADnaPZwDgAATLOZ+5wDAMC5E84BAKARN91anr941o0eplsLAAAsY/fVl0+uu+HBauH8s8+/+C24v+qmAKf08JOHvo8TaLdpot2ur+//lLz+4XU3xCk8+PhBN3TXbrfzecHM+r5voe87F55++7Qbem/328yjw3l58WgK5xNWBcwsfmD7wtI5SoFi34FxiEtrt7nsa7d47djPhWn2tf2+cO7zgvEOfXfGhnN9zgEAoBHCOQAANEI4BwCARgjnAADQCOEcAAAaIZwDAEAjhHMAAGiEcA4AAI2ohvO4WXoUAABgPdVwHk8x8pQ8AABYl24tAADQCOEcAAAaIZwDAEAjhHMAAGiEcA4AAI0QzgEAoBG76wn3THz760/d0Dsvv3t59dnnX1y9+v5VNwU4pYefPPR9nEC7TRPtVvspef3D626IU3jw8YNu6K54jonPC+bV930Lfd+58PTbp93Qe/fCee3hQ+UK+8J534aBde07ENBPu02j3bbF5wXr2vedGxTOh6iF80//+mk3BgAATPHBv9/+82pM+fvfvugWBQAA5nRzQeiHH/1xUHn+4tnNQgAAwPxu79YSXVUOlaX97g9/uS2l/LW+eUJtvlQAAKBlu3+9+fk6zooPCd/Rt/zV96+vvv7mH92Ud/I+5zF8SK1/eoTnN7/82I0dHh9iyjIAAHAqi9znPMJ3X6mphegYj+kAAHApmn4I0dxnvcuwn8bjb15yfdMBAGBut+E8uqPsK2vqC8R90+cQ/xBIJa0//tamAwDAEm7DeXQ5efT4SW8Z65iAn8JwKQ/KU8RyZfA+JOZLBQAAlnSnW0t5d5a8jFX2NY+yRfk/CIaEeQAAmKqJbi0Ressz00udqU7bmhK0nT0HAGBJi3VrGSuF5lTWPktd2/ap6wQAwGVp5j7na6mFbMEbAIAWzB7O1xbBOrcvZPeFcOEcAIAW3LkgdIsiVOdln77XDy0HAABr2Hw4BwCAc3HTreX5i2fd6GGtdWsBAIBzsfvqyyfX3fBgtXD+2edfXP38/3/uprz30/8bf490YJg//9c/d0N3/em//Kn6fWQ/7TZNX7s5/p+W4wO0Ib5z19f1uP3026fd0Hu732YeHc7Li0cPhfO+AwQw3b7vlh/fabTbNPvCueP/aTg+QDvGhnN9zgEAoBHCOQAANEI4BwCARgjnAADQCOEcAAAaIZwDAEAjhHMAAGiEcA4AAI2ohvPdbndTAACA9VTDeTzFaMKDQwEAgCPo1gIAAI0QzgEAoBHCOQAANEI4BwCARgjnAADQiN31hNuyvP31p27onZffvbz67PMvrl59/6qbApzSw08e+j5OoN2m0W7b4vOCdcV3ri9uP/32aTf03mzh/NO/ftqNAQAAU3zw77f/vBpT/v63L7pFAQCAOd30Of/woz8OKs9fPLtZCAAAmN/tBaHRVeVQWdrv/vCX21LKX+ubJ6m9tm/+faYsN3VbAABcttnv1hL9zw+Vmgi0b3758bbUAm7+epRWtVw3AADatcitFOPi0L5Sk4J5LsadgQYA4JI0fZ/zpc5AR+hPJUnD5fSQpo2ZDgAAY92G81r3k7ysaV/orU2vyect54/Qn0r+WgzXpvfN3zcdAACmuA3n0eXk0eMnvWWsYwJ+CrylPAwfks9bzh9BOpXckPXm+tYDAABT3OnWUrtDSypjlX3No7QggnRfaB9jrvUAAEDSRLeWCLfl2WdnowEAuDSLdWsZKwX0VJY6G11uZ4h8/lSvKesBAIB9dv968/N1PP1zSNeVOIP+6vvXV19/849uyjsxPXVbGXKWvZUuLgAA0JLZw/nayrPWS51xBwCApd25IHSLIoznBQAAtmrz4RwAAM7FTbeW5y+edaOHtdatBQAAzsXuqy+fXHfDg9XC+Weff9GNAQAAyfV1PW4//fZpN/Te7reZR4fz8uLRFM5fff+qmwKc0sNPHvo+TqDdptFu2+LzgnXFd25MONfnHAAAGiGcAwBAI4RzAABohHAOAACNEM4BAKARmw7ncfVrKqXatD75vEOXG7P+mqn126ecL8bL0ufQa4eWH8P6+s21TQBgm87qVor7gs2+usVy+evleCm9PmS+3JhtJEO2VW4nSfMf2lbf62m9+Wu1aUNZ37D1xTxTtpebYx2XSLtNo922xecF64rv3JhbKW46nMebTcpt9x188mUO6Vs+n963nUOGLDd0W2l6bf7SvuVztXXtG88dWl8MJ/m0VtaXlNuYsr74W0rTx6xvrDnWcYm02zTabVt8XrCu+M6NCefVbi273e6mtC4OLqkk0QBRyuEkXyZftm96LtZVTo/xchtJ2n4qY8T8Q7eVTy+3Fa+lUlPbTqm2zanS9lI5dt1zry+Z8z3n9YtyyJzvAwDYlmo4j3Q/4YT66iLApJLkAagvDB0KPuXraRspNJUln55L208lXyaU4yGNl/PXpidpOG0nl+bN5z8k5s3XU64zpHoMka+vtq7QyvpCOR6OWV/NmPUBAJdj0xeERsBJJUTYSaU2ntSCUb5MWl+SbyMN5yWfnkvbTqVvmTQeaq/vGw5pPN9Okl7Lpy0lbb8c7lPWtTRmfen1udY3xND1pdf6XgcASM7qbi0pmKUwmo+XymkxHuupzTtVrCsvY5TvrRwvxfS0nXyeQ8vNKX+f+XBNqu8+Y9aXXt/3PvN15MO5IfVKhqwvTU9ljc8BANiuszpznkQASuWQfJ5D4Slfb1lqhszTp3xv5Xgu1p1Pj+G0vX3L9cmX71Nuc59yfbVlp64vX29u6vpCDJfrn7q+9Lc0Zn0AwOU4qzPnSYSeVPqk5cp5YrxcXy5fdyr7DJmnpq8Otemx/vR+UknbzKfVpGXXkrZ1qF5Dle99SlvnYvlU0vgxYvmx9ZvjfQAA27TpcB5qISYPQ6U0PZbrC0Axvbbsmmp1SPXuU76nNFz+HSLmTW2VxkOatm9dtdfS+tJwKuGY9aVlU8mn9am9li+bzLW+GE5lyPoAgMt1dvc5L4PPoSCU1jGk7vn2SrXly/mH1mvfdpJy2dq2ym0c2uaQ+vTNM4b19Yt559rmHOu5NNptGu22LT4vWFd858bc53zT4Ryo8+M7jXabRrtti88L1jU2nN/r1pIeQJQXAABgeffCeST7sgAAAMvb/AWhAABwLoRzAABohHAOAACNEM4BAKARwjkAADRi1vucAwAAd/XF7UUfQvTo8ZNuDAAAOGTQQ4gAAIDTqIZzTwYFAID1VcN59HSZ0NsFAAA4gm4tAADQCOEcAAAaIZwDAEAjhHMAAGhEbzh3txYAAFhXNZwL5gAAsL5qOHcbRQAAWJ8+5wAA0AjhHAAAGiGcAwBAI4RzAABoRG84d1EoAACsy5lzAABohHAOAACNEM4BAKARwjkAADRCOAcAgEZUw/lut7spAADAeqrhPG6j6FaKAACwLt1aAACgEcI5AAA0QjgHAIBGCOcAANAI4RwAABohnAMAQCN21xPumfj215+6oXdefvfy6tO/ftqNAQAAU3zw77f/vBpT/v63L7pFAQCAOd10a/nwoz8OKs9fPLtZCAAAmN9tn/PoqnKoLOl3f/jLnbKEchtLbQcAAKbY/evNz9dxVnxI+I6+5a++f3319Tf/6Ka8k/c5j+FDav3TIyi/+eXHbuz++BzmXOcS9QMA4LItcreWCN99BQAAqNvErRTjLHUquXx6/lpt2iF9y9Smp+Fy2pD5AACgz204j+4o+8oa8oCbdxmJ4VTywJumhfQ3nx4lzZ/EeCpJ3zJ902M4/9s3X0ivAQDAIbfhPLqcPHr8pLeMNSXg5wE3FwE3lVxtWuibP/Rt41h925x7OwAAnK873VrKu7PkZayyr3mUKSLs9gXqIdPL15Zyim0CAHBemurWMlbf2ercvteWcoptAgCwfXdupfjR7//cTb4vXo+QPuRWivvOkve9HoG274xzGXZjvnL+fDyfv2+e0r5lknLZQ9vctz0AACg1c5/zKfYFZwAA2JrZwzkAADDNJu5zDgAAl0A4BwCARtx0a3n+4lk3ephuLQAAsIzdV18+ue6GB6uF8//zf//ZjQEAAFPs3vzy4+hwXhLOAQDgePqcAwBAI4RzAABohHAOAACNEM4BAKARwjkAADTh6uo/AGEGS5U+M63LAAAAAElFTkSuQmCC
问题：因为是个升级项目，所以逻辑处理上没动，他的整体数据实在明细format的时候在取的，ActiveReportV2.0中，GH_Type能正常分组，但在ActiveReportV11.0中GH_Type的format只能走一次，没法正常分组。GH_Type有一个RepeatStyle属性，每一个值也试了还是只走一次。所以我有点怀疑，是不是因为在reportstart的时候没绑定数据，而是在明细里取数据，账票没法正常去判断分组了。很疑惑，求各位大神帮助
附代码：注释的地方是本次升级的。
---------------------------------------------------------------------------------------
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Private Sub Detail_Format()
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
On Error GoTo CERROR
'' レポートが開始してはじめての Detail_Format イベントのとき、
If mbPrim = False Then
'' 明細書の印字データを取得する。
giRet = ReadSeikyuMeisai()
If giRet = -1 Then
Call CPutMessage(goOraDB, "CDB010E", vbOKOnly, "")
'2020/06/17 VB.NETマイグレーション対応 DELETE START
'Unload Me
'2020/06/17 VB.NETマイグレーション対応 DELETE END
End If
mbPrim = True
'' データが存在しなかった場合、フラグをＯＮ。
If mrRecset Is Nothing Then
'' 空白行を印字。
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Detail.PrintSection
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntRow = miCntRow + 1
Exit Sub
End If
Else
'' 印字データが取得できなかった場合、
If mrRecset Is Nothing Then
'' 出力区分を全て(00 ～ 03 まで)印字し終えたら、次の販売店の印字データを抽出する。
If miOutKBN = 4 Then
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'GH_Type.GroupValue = 5
GH_Type.DataField = "5"
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntNum = 5
If miCntRow < 40 Then
fldSyubetu.Text = ""
fldTani.Text = ""
Field1.Text = ""
fldTanka.Text = ""
fldKingaku.Text = ""
fldBikou.Text = ""
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Detail.PrintSection
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntRow = miCntRow + 1
Exit Sub
Else
miCntNum = 6
'' 全ての販売店を印字が終了していたら、処理を抜ける。
If miHanbaiCD_cntidx = miHanbaiCD_maxidx Then
miHanbaiCD_cntidx = miHanbaiCD_cntidx + 1
Exit Sub
End If
miHanbaiCD_cntidx = miHanbaiCD_cntidx + 1 '' カウントアップ
miOutKBN = 0 '' 出力区分を０に戻す。
'' 明細書の印字データを取得する。
giRet = ReadSeikyuMeisai()
If giRet = -1 Then
Call CPutMessage(goOraDB, "CDB010E", vbOKOnly, "")
'2020/06/17 VB.NETマイグレーション対応 DELETE START
'Unload Me
'2020/06/17 VB.NETマイグレーション対応 DELETE END
End If
'' グループプロパティを更新
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'GH_Hanbai.GroupValue = miHanbaiCD_cntidx
GH_Hanbai.DataField = miHanbaiCD_cntidx.ToString()
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
'' データが存在しなかった場合、テキストをクリアして空白行を印字。
If mrRecset Is Nothing Then
fldSyubetu.Text = ""
fldTani.Text = ""
Field1.Text = ""
fldTanka.Text = ""
fldKingaku.Text = ""
fldBikou.Text = ""
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Detail.PrintSection
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntRow = miCntRow + 1
Exit Sub
End If
End If
Else
'' 出力区分(ＳＱＬの条件にて使用)のカウント。
miOutKBN = miOutKBN + 1
'' 明細書の印字データを取得する。
giRet = ReadSeikyuMeisai()
If giRet = -1 Then
Call CPutMessage(goOraDB, "CDB010E", vbOKOnly, "")
'2020/06/17 VB.NETマイグレーション対応 DELETE START
'Unload Me
'2020/06/17 VB.NETマイグレーション対応 DELETE END
End If
miCntNum = miCntNum + 1
'' グループプロパティを更新(出力区分グループセクション)
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'GH_Type.GroupValue = miCntNum
GH_Type.DataField = miCntNum.ToString()
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
'' データが存在しなかった場合、テキストをクリアして空白行を印字。
If mrRecset Is Nothing Then
fldSyubetu.Text = ""
fldTani.Text = ""
Field1.Text = ""
fldTanka.Text = ""
fldKingaku.Text = ""
fldBikou.Text = ""
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Detail.PrintSection
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntRow = miCntRow + 1
Exit Sub
End If
End If
Else
'' レコードセットがＥＯＦに達していたら、
If mrRecset.EOF Then
'' 出力区分を全て(00 ～ 03 まで)印字し終えたら、次の販売店の印字データを抽出する。
If miOutKBN = 4 Then
If miCntRow < 40 Then
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'GH_Type.GroupValue = 5
GH_Type.DataField = "5"
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntNum = 5
fldSyubetu.Text = ""
fldTani.Text = ""
Field1.Text = ""
fldTanka.Text = ""
fldKingaku.Text = ""
fldBikou.Text = ""
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Detail.PrintSection
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntRow = miCntRow + 1
Exit Sub
Else
miCntNum = 6
'' 全ての販売店を印字が終了していたら、処理を抜ける。
If miHanbaiCD_cntidx = miHanbaiCD_maxidx Then
miHanbaiCD_cntidx = miHanbaiCD_cntidx + 1
Exit Sub
End If
miHanbaiCD_cntidx = miHanbaiCD_cntidx + 1 '' カウントアップ(販売店コード)
miOutKBN = 0 '' 出力区分を０に戻す。
'' 明細書の印字データを取得する。
giRet = ReadSeikyuMeisai()
If giRet = -1 Then
Call CPutMessage(goOraDB, "CDB010E", vbOKOnly, "")
'2020/06/17 VB.NETマイグレーション対応 DELETE START
'Unload Me
'2020/06/17 VB.NETマイグレーション対応 DELETE END
End If
'' グループプロパティを更新(販売店コードグループセクション)
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'GH_Hanbai.GroupValue = miHanbaiCD_cntidx
GH_Hanbai.DataField = miHanbaiCD_cntidx.ToString()
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
'' データが存在しなかった場合、テキストをクリアして空白行を印字。
If mrRecset Is Nothing Then
fldSyubetu.Text = ""
fldTani.Text = ""
Field1.Text = ""
fldTanka.Text = ""
fldKingaku.Text = ""
fldBikou.Text = ""
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Detail.PrintSection
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntRow = miCntRow + 1
Exit Sub
End If
End If
Else
'' 出力区分(ＳＱＬの条件にて使用)のカウント。
miOutKBN = miOutKBN + 1
'' 明細書の印字データを取得する。
giRet = ReadSeikyuMeisai()
If giRet = -1 Then
Call CPutMessage(goOraDB, "CDB010E", vbOKOnly, "")
'2020/06/17 VB.NETマイグレーション対応 DELETE START
'Unload Me
'2020/06/17 VB.NETマイグレーション対応 DELETE END
End If
miCntNum = miCntNum + 1
'' グループプロパティを更新(出力区分グループセクション)
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'GH_Type.GroupValue = miCntNum
GH_Type.DataField = miCntNum.ToString()
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
'' データが存在しなかった場合、テキストをクリアして空白行を印字。
If mrRecset Is Nothing Then
fldSyubetu.Text = ""
fldTani.Text = ""
Field1.Text = ""
fldTanka.Text = ""
fldKingaku.Text = ""
fldBikou.Text = ""
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Detail.PrintSection
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntRow = miCntRow + 1
Exit Sub
End If
End If
End If
End If
End If
'' データの印字
'' レコードセットのフィールドをワーク変数へセット。
lsOutKBN = mrRecset.Fields("出力区分").Value
lsTensyuCD = mrRecset.Fields("店主コード").Value
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'lsKasiCD = IIf(IsNull(mrRecset.Fields("貸付コード").Value), "", mrRecset.Fields("貸付コード").Value)
lsKasiCD = IIf(IsDBNull(mrRecset.Fields("貸付コード").Value), "", mrRecset.Fields("貸付コード").Value)
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'lsSeikyutuki = Format(mrRecset.Fields("請求月").Value, "YYYY/MM/DD")
lsSeikyutuki = VB6Format(CDate(mrRecset.Fields("請求月").Value), "YYYY/MM/DD")
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
lsKomokName = mrRecset.Fields("請求項目名").Value
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'lsKasiFlag = IIf(IsNull(mrRecset.Fields("貸付フラグ").Value), "", mrRecset.Fields("貸付フラグ").Value)
lsKasiFlag = IIf(IsDBNull(mrRecset.Fields("貸付フラグ").Value), "", mrRecset.Fields("貸付フラグ").Value)
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
lsSuryo = mrRecset.Fields("数量").Value
lsTani = mrRecset.Fields("単位").Value
lcTankagaku = mrRecset.Fields("単価額").Value
lcKingaku = mrRecset.Fields("金額").Value
mrRecset.MoveNext()
miCntRow = miCntRow + 1
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Detail.PrintSection
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
GF_Type_Format()
Exit Sub
CERROR:
'' エラーログ出力
gsMsg = "ERROR : Detail_Format( " & Err.Number & " " & Err.Description & " )"
Call CLogPut(giFileNum, gsMsg)
End Sub
'-----------------------------------------------------------------------------
' @(f)
'
' 関数名 : ReadSeikyuMeisai
'
' 機能 : 印字データの取得
'
' 機能説明 : 請求管理（明細）データよりデータを取得する。
'
' 備考 : ただし、１販売店の１出力区分分に対するデータを抽出する。
'-----------------------------------------------------------------------------
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Private Function ReadSeikyuMeisai()
Private Function ReadSeikyuMeisai() As Short
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
On Error GoTo CERROR
'' ログファイル書き込み
gbRet = CLogPut(giFileNum, "FUNCTION:ReadSeikyuMeisai")
ReadSeikyuMeisai = 0
With frmSMsaiL09
gsSQL = "SELECTKANRI.販売店コード, "
gsSQL = gsSQL & "KANRI.店主コード, "
gsSQL = gsSQL & "MEISAI.請求項目コード, "
gsSQL = gsSQL & "KANRI.請求月, "
gsSQL = gsSQL & "KANRI.賦課金, "
gsSQL = gsSQL & "KANRI.関係費, "
gsSQL = gsSQL & "KANRI.請求合計額, "
gsSQL = gsSQL & "HANBAI.入金予定日, "
gsSQL = gsSQL & "HANBAI.販売店名, "
gsSQL = gsSQL & "TENSYU.店主名, "
gsSQL = gsSQL & "MEISAI.出力区分, "
gsSQL = gsSQL & "KOMOKU.請求項目名, "
gsSQL = gsSQL & "KOMOKU.単位, "
gsSQL = gsSQL & "MEISAI.数量, "
gsSQL = gsSQL & "MEISAI.単価額, "
gsSQL = gsSQL & "MEISAI.金額, "
gsSQL = gsSQL & "MEISAI.貸付フラグ, "
gsSQL = gsSQL & "MEISAI.貸付コード,"
gsSQL = gsSQL & "MEISAI.請求区分 "
gsSQL = gsSQL & "FROM 請求管理データ KANRI, "
gsSQL = gsSQL & "販売店マスタ HANBAI, "
gsSQL = gsSQL & "店主マスタ TENSYU, "
gsSQL = gsSQL & "請求明細データ MEISAI,"
gsSQL = gsSQL & "請求項目マスタ KOMOKU "
' gsSQL = gsSQL & "WHERE TO_CHAR(KANRI.請求月,'YYYY/MM') = '" & Format(.txtInput(0).Text & "01日", "YYYY/MM") & "'"
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'gsSQL = gsSQL & "WHERE CONVERT(varchar,KANRI.請求月,111) = '" & Format(.txtInput(0).Text, "YYYY/MM") & "/01'"
gsSQL = gsSQL & "WHERE CONVERT(varchar,KANRI.請求月,111) = '" & VB6Format(CDate(.txtInput(0).Text), "YYYY/MM") & "/01'"
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
gsSQL = gsSQL & "AND KANRI.販売店コード = '" & msHanbaiCD(miHanbaiCD_cntidx) & "' "
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'gsSQL = gsSQL & "AND HANBAI.入金予定日 BETWEEN '" & CInt(.txtInput(1).ClipText) & "' AND '" & CInt(.txtInput(2).ClipText) & "' "
gsSQL = gsSQL & "AND HANBAI.入金予定日 BETWEEN '" & CInt(.txtInput(1).Text) & "' AND '" & CInt(.txtInput(2).Text) & "' "
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
'2000/7/17
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'gsSQL = gsSQL & "AND MEISAI.出力区分 = '" & Format(miOutKBN, "00") & "' "
gsSQL = gsSQL & "AND MEISAI.出力区分 = '" & VB6Format(miOutKBN, "00") & "' "
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
' If miOutKBN <> 3 Then
' gsSQL = gsSQL & "AND MEISAI.出力区分 = '" & Format(miOutKBN, "00") & "' "
' Else
' gsSQL = gsSQL & "AND MEISAI.出力区分 >= '" & Format(miOutKBN, "00") & "' "
' End If
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'If .Combo1.ListIndex = 0 Then
If .Combo1.SelectedIndex = 0 Then
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
gsSQL = gsSQL & "AND KANRI.関係費 <> 0 "
End If
gsSQL = gsSQL & "AND HANBAI.販売店コード = KANRI.販売店コード "
gsSQL = gsSQL & "AND TENSYU.店主コード = KANRI.店主コード "
gsSQL = gsSQL & "AND MEISAI.販売店コード = KANRI.販売店コード "
gsSQL = gsSQL & "AND MEISAI.店主コード = KANRI.店主コード "
gsSQL = gsSQL & "AND MEISAI.請求月 = KANRI.請求月 "
gsSQL = gsSQL & "AND KOMOKU.請求項目コード = MEISAI.請求項目コード "
'2000/8/9
'gsSQL = gsSQL & "ORDER BY KOMOKU.単位 DESC,MEISAI.請求項目コード ASC"
gsSQL = gsSQL & "ORDER BY KOMOKU.出力順番,MEISAI.請求項目コード"
'' ログファイル書き込み
gbRet = CLogPut(giFileNum, "SQL:" & gsSQL)
End With
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Set mrRecset = COraSelect(goOraDB, gsSQL)
mrRecset = COraSelect(goOraDB, gsSQL)
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
Exit Function
CERROR:
ReadSeikyuMeisai = -1
'' エラーログ出力
gsMsg = "ERROR : ReadSeikyuMeisai( " & Err.Number & " " & Err.Description & " )"
Call CLogPut(giFileNum, gsMsg)
End Function
'-----------------------------------------------------------------------------
' @(f)
'
' 関数名 : GF_Type_Format
'
' 機能 : グループフッターの設定
'
' 機能説明: 小計印字
'
' 備考 :
'-----------------------------------------------------------------------------
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
Private Sub GF_Type_Format()
'Private Sub GF_Type_Format(sender As Object, e As EventArgs) Handles GF_Type.Format
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
On Error GoTo CERROR
'' ログファイル書き込み
gbRet = CLogPut(giFileNum, "EVENT : GF_Type_Format")
miCntRow = miCntRow + 1
If miCntNum = 6 Then
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Label3.Caption = " 関 係 費 合 計( ②+③+④+⑤ )"
Label3.Text = " 関 係 費 合 計( ②+③+④+⑤ )"
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
mcSubTotal = GetSubTotal()
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Field2.Text = Format(mcSubTotal, "#,##0")
Field2.Text = VB6Format(mcSubTotal, "#,##0")
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
miCntNum = 0
Else
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Label3.Caption = GetSequenceNum(miCntNum)
Label3.Text = GetSequenceNum(miCntNum)
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
mcSubTotal = GetSubTotal()
'2020/06/17 VB.NETマイグレーション対応 UPDATE START
'Field2.Text = Format(mcSubTotal, "#,##0")
Field2.Text = VB6Format(mcSubTotal, "#,##0")
'2020/06/17 VB.NETマイグレーション対応 UPDATE END
mcTotal = mcTotal + mcSubTotal
End If
LayoutAction = GrapeCity.ActiveReports.LayoutAction.PrintSection Or GrapeCity.ActiveReports.LayoutAction.MoveLayout
Exit Sub
CERROR:
'' エラーログ出力
gsMsg = "ERROR : GF_Type_Format( " & Err.Number & " " & Err.Description & " )"
Call CLogPut(giFileNum, gsMsg)
End Sub
您好，从AR2直接升级到AR12由于升级跨度太大，可能会存在一些小问题。你具体报表展示需要实现什么需要，你把报表模板发过来看看，我们研究下具体如何进行一个分组的设置 KearneyKang 发表于 2020-7-1 09:34
您好，从AR2直接升级到AR12由于升级跨度太大，可能会存在一些小问题。你具体报表展示需要实现什么需要，你 ...
做了一些都是reportstart的时候，用datasource绑定的，这种的分组没问题，但是这一本非常特殊，数据都是detailformat的时候一组一组的取的，本身分组没什么，可比如附件的账票样式，detailformat的时候按照一个【出力区分】去检索数据，group里按照出力区分去分组，但现在的groupfooter的format只走一次，感觉时是明细取数据的同时，group那边判断不了是不是datafield变化了？
是不是这种明细取数据是不符合他的设计思想的啊？有点疑惑了，数据逻辑取得那块还不想大改动，上面有部分source，请帮忙看一下
有没有知道的大神，帮忙看一下啊 你好，这个问题目前么有你对应的AR2的环境和版本升级跨度大，我在现有的版本上很难找到问题所在，建议对报表本身设计方面进行一个修改。我 KearneyKang 发表于 2020-7-1 18:33
你好，这个问题目前么有你对应的AR2的环境和版本升级跨度大，我在现有的版本上很难找到问题所在，建议对报 ...
谢谢回答。目前好像解决了。
解决方案：
1.追加方法：
Private Sub rptSMsaiL09_DataInitialize(sender As Object, e As EventArgs) Handles Me.DataInitialize
Fields.Add("出力区分group")
Fields.Add("販売店コードgroup")
End Sub
2.把GH_Hanbai.DataField的属性设置为【販売店コードgroup】
GH_Type.DataField 的属性设置为【出力区分group】
3.把
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format方法名修改为
Private Sub rptSMsaiL09_FetchData(sender As Object, eArgs As FetchEventArgs) Handles Me.FetchData
4.把rptSMsaiL09_FetchData方法中的下面相关代码内容一下。，
GH_Hanbai.DataField 都改为 Fields("出力区分group").Value = "XX"，
GH_Type.DataField 都改为 Fields("出力区分group").Value = "XX"
分析：V2.0中GH_Hanbai.GroupValue=“XX”，升级后按照理解改成了GH_Hanbai.DataField=“XX”，但真正的这个属性里面应该设字段的名称，而不是真正的字段的值。所以这样账票识别不出来group的分组变化了，group_format方法没法触发。改为上面的方法后可以了。
您再帮忙看看原理是不是这样？虽然改造出来了，还是有点疑惑。
比如1.是不是Detail_Format必须改为 rptSMsaiL09_FetchData等，我再实验一下。
2.这样做，好像group的newpage等部分属性都失效了一样，必须在source里控制。
问题解决了就好
页:
[1]